home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM BV3 / BMUG PD-ROM Version BV3 (CDRM1097900).iso / HyperCard / Utility / Stack Analyzer / stack_-1.xml < prev   
Extensible Markup Language  |  1991-03-30  |  14KB  |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>2871</cardID>
  8.     <listID>2240</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on parseStackglobal holdMyPlace, theTargetStack, theTextFile, theTextDump, ¬¨theScript, theLeadSpace, theTargetBkgdgo to theTargetStackput the script of this stack into theScriptput the number of backgrounds into theBkgdCntwrite return & " ->   # of cards:" ¬¨& the number of cards in this stack ¬¨& "   # of backgrounds:" & theBkgdCnt ¬¨to file theTextFilewrite return & "      size:" & the size of this stack ¬¨& "   freespace:" & the freeSize of this stack ¬¨to file theTextFilewrite return & "      cantModify:" & the cantModify of this stack ¬¨& "   cantPeek:" & the cantPeek of this stack ¬¨& "   cantAbort:" & the cantAbort of this stack ¬¨& return to file theTextFileput " number of backgrounds = " & theBkgdCnt ¬¨& "    number of cards = " & the number of cards in this stack ¬¨into statusLinego to holdMyPlaceput return & statusLine & return after card field "statusField"put return & " analyzing the stack script..." & return after ¬¨card field "statusField"scrollFieldunlock screenlock screenwrite return & " -> Stack Msg Handlers & Functions:" ¬¨& return to file theTextFileput "  " into theLeadSpaceparseScriptrepeat with i = 1 to theBkgdCntgo to holdMyPlaceput return & " analyzing background #" & i & "..." & return ¬¨after card field "statusField"scrollFieldunlock screenlock screenwrite return & "               ** BACKGROUND #" & i & " **" ¬¨& return & return to file theTextFilego to theTargetStackput the ID of background i into theTargetBkgdparseBkgdend repeatend parseStackon parseBkgdglobal holdMyPlace, theTargetStack, theTextFile, theTextDump, ¬¨theScript, theLeadSpace, theTargetBkgd, theTargetField, ¬¨theTargetButtongo to card 1 of background ID theTargetBkgdput the number of cards in this background into cardCounterwrite "  -> # of cards:" & cardCounter ¬¨& "   # of fields:" & the number of background fields ¬¨& "   # of buttons:" & the number of background buttons ¬¨& return to file theTextFileput "  # of fields = " & the number of background fields ¬¨& "    # of buttons = " & the number of background buttons ¬¨& "    # of cards = " & cardCounter ¬¨& return & "  analyzing the background script..." into statusLinepush cardgo to holdMyPlaceput statusLine after card field "statusField"scrollFieldunlock screenlock screenpop cardwrite return & "  -> Background Properties:" ¬¨& return to file theTextFilewrite "   id:" & theTargetBkgd & ¬¨"   name:" & the short name of this background & return ¬¨to file theTextFilewrite "   don'tSearch:" & the dontSearch of this background & ¬¨"   cantDelete:" & the cantDelete of this background & return ¬¨to file theTextFilewrite return & "  -> Background Msg Handlers & Functions:" ¬¨& return to file theTextFileput the script of this background into theScriptif theScript = empty thenwrite "   -none-" & return to file theTextFileelseput "   " into theLeadSpaceparseScriptend ifwrite return & "  -> Background Fields:" ¬¨& return to file theTextFileput return & "  analyzing the background fields..." ¬¨& return into statusLinepush cardgo to holdMyPlaceput statusLine after card field "statusField"scrollFieldunlock screenlock screenpop cardrepeat with i = 1 to number of background fieldsput the ID of background field i into theTargetFieldparseBkgdFldend repeatwrite return to file theTextFilewrite return & "  -> Background Buttons:" ¬¨& return to file theTextFileput "  analyzing the background buttons..." ¬¨& return into statusLinepush cardgo to holdMyPlaceput statusLine after card field "statusField"scrollFieldunlock screenlock screenpop cardrepeat with i = 1 to number of background buttonsput the ID of background button i into theTargetButtonparseBkgdButtonend repeatwrite return & "  -> 'Active' Cards" & return to file theTextFileparseCardsend parseBkgdon parseBkgdFldglobal theTextFile, theScript, theLeadSpace, theTargetFieldput "background field ID " & theTargetField into theFieldwrite "   - Bkgd Fld #" & the number of theField ¬¨& return to file theTextFilewrite "     - Properties:" & return to file theTextFilewrite "       id:" & theTargetField ¬¨& "  name:" & the short name of theField ¬¨& return to file theTextFilewrite "       textFont:" & the textFont of theField ¬¨& "   textSize:" & the textSize of theField ¬¨& "   textStyle:" & the textStyle of theField ¬¨& return to file theTextFilewrite "       visible:" & the visible of theField ¬¨& "   lockText:" & the lockText of theField ¬¨& "   dontSearch:" & the dontSearch of theField ¬¨& return to file theTextFilewrite "       textAlign:" & the textAlign of theField ¬¨& "   dontWrap:" & the dontWrap of theField ¬¨& return to file theTextFilewrite "       textHeight:" & the textHeight of theField ¬¨& "   fixedLineHeight:" & the fixedLineHeight of theField ¬¨& return to file theTextFilewrite "       style:" & the style of theField ¬¨& "   showLines:" & the showLines of theField ¬¨& return to file theTextFilewrite "       autoTab:" & the autoTab of theField ¬¨& "   wideMargins:" & the wideMargins of theField ¬¨& return to file theTextFilewrite "       top:" & the top of theField ¬¨& "  left:" & the left of theField ¬¨& "  right:" & the right of theField ¬¨& "  bottom:" & the bottom of theField ¬¨to file theTextFilewrite return & "     - Msg Handlers & Functions:" ¬¨& return to file theTextFileput "        " into theLeadSpaceput the script of theField into theScriptif theScript = empty thenwrite "        -none-" & return to file theTextFileelseput "      " into theLeadSpaceparseScriptend ifend parseBkgdFldon parseBkgdButtonglobal theTextFile, theScript, theLeadSpace, theTargetButtonput " background button ID " & theTargetButton into theButtonwrite "   - Bkgd Button #" & the number of theButton ¬¨& return to file theTextFilewrite "     - Properties:" & return to file theTextFilewrite "       id:" & theTargetButton ¬¨& "  name:" & the short name of theButton ¬¨& return to file theTextFilewrite "       textFont:" & the textFont of theButton ¬¨& "   textSize:" & the textSize of theButton ¬¨& "   textStyle:" & the textStyle of theButton ¬¨& return to file theTextFilewrite "       visible:" & the visible of theButton ¬¨& "   style:" & the style of theButton ¬¨& "   showName:" & the showName of theButton ¬¨& return to file theTextFilewrite "       hilite:" & the hilite of theButton ¬¨& "   icon:" & the icon of theButton ¬¨& return to file theTextFilewrite "       sharedHilite:" & the sharedHilite of theButton ¬¨& "   autoHilite:" & the autoHilite of theButton ¬¨& return to file theTextFilewrite "       top:" & the top of theButton ¬¨& "  left:" & the left of theButton ¬¨& "  right:" & the right of theButton ¬¨& "  bottom:" & the bottom of theButton ¬¨to file theTextFilewrite return & "     - Msg Handlers & Functions:" ¬¨& return to file theTextFileput "        " into theLeadSpaceput the script of theButton into theScriptif theScript = empty thenwrite "        -none-" & return to file theTextFileelseput "      " into theLeadSpaceparseScriptend ifend parseBkgdButtonon parseCardsglobal theTextFile, theTextDump, theScript, theLeadSpace, ¬¨theTargetField, theTargetButton, holdMyPlaceput "  scanning for card level fields/buttons/scripts..." ¬¨& return into statusLinepush cardgo to holdMyPlaceput statusLine after card field "statusField"scrollFieldunlock screenlock screenpop cardgo to last card of this backgroundrepeat for number of cards in this backgroundgo to next card in this backgroundif the number of card buttons + the number of card fields ¬¨+ the number of characters in the script of this card = 0 thennext repeatelsewrite "  - Card #: " & the number of this card ¬¨& return to file theTextFilerepeat with i = 1 to number of card fieldsput the ID of card field i into theTargetFieldparseCardFldend repeatrepeat with i = 1 to number of card buttonsput the ID of card button i into theTargetButtonparseCardButtonend repeatend ifend repeatend parseCardson parseScriptglobal theTextFile, theTextDump, theScript, theLeadSpacerepeat with i = 1 to number of lines in theScriptif theTextDump thenwrite theLeadSpace & line i of theScript ¬¨& return to file theTextFileelseif word 1 of line i of theScript = "on" or ¬¨word 1 of line i of theScript = "function" thenwrite theLeadSpace & line i of theScript ¬¨& return to file theTextFileend ifend ifend repeatend parseScripton parseCardFldglobal theTextFile, theScript, theLeadSpace, theTargetFieldput "card field ID " & theTargetField into theFieldwrite "   - Card Fld #" & the number of theField ¬¨& return to file theTextFilewrite "     - Properties:" & return to file theTextFilewrite "       id:" & theTargetField ¬¨& "  name:" & the short name of theField ¬¨& return to file theTextFilewrite "       textFont:" & the textFont of theField ¬¨& "   textSize:" & the textSize of theField ¬¨& "   textStyle:" & the textStyle of theField ¬¨& return to file theTextFilewrite "       visible:" & the visible of theField ¬¨& "   lockText:" & the lockText of theField ¬¨& "   dontSearch:" & the dontSearch of theField ¬¨& return to file theTextFilewrite "       textAlign:" & the textAlign of theField ¬¨& "   dontWrap:" & the dontWrap of theField ¬¨& return to file theTextFilewrite "       textHeight:" & the textHeight of theField ¬¨& "   fixedLineHeight:" & the fixedLineHeight of theField ¬¨& return to file theTextFilewrite "       style:" & the style of theField ¬¨& "   showLines:" & the showLines of theField ¬¨& return to file theTextFilewrite "       autoTab:" & the autoTab of theField ¬¨& "   wideMargins:" & the wideMargins of theField ¬¨& return to file theTextFilewrite "       top:" & the top of theField ¬¨& "  left:" & the left of theField ¬¨& "  right:" & the right of theField ¬¨& "  bottom:" & the bottom of theField ¬¨to file theTextFilewrite return & "     - Msg Handlers & Functions:" ¬¨& return to file theTextFileput "        " into theLeadSpaceput the script of theField into theScriptif theScript = empty thenwrite "        -none-" & return to file theTextFileelseput "      " into theLeadSpaceparseScriptend ifend parseCardFldon parseCardButtonglobal theTextFile, theScript, theLeadSpace, theTargetButtonput " card button ID " & theTargetButton into theButtonwrite "   - Card Button #" & the number of theButton ¬¨& return to file theTextFilewrite "     - Properties:" & return to file theTextFilewrite "       id:" & theTargetButton ¬¨& "  name:" & the short name of theButton ¬¨& return to file theTextFilewrite "       textFont:" & the textFont of theButton ¬¨& "   textSize:" & the textSize of theButton ¬¨& "   textStyle:" & the textStyle of theButton ¬¨& return to file theTextFilewrite "       visible:" & the visible of theButton ¬¨& "   style:" & the style of theButton ¬¨& "   showName:" & the showName of theButton ¬¨& return to file theTextFilewrite "       hilite:" & the hilite of theButton ¬¨& "   icon:" & the icon of theButton ¬¨& return to file theTextFilewrite "       sharedHilite:" & the sharedHilite of theButton ¬¨& "   autoHilite:" & the autoHilite of theButton ¬¨& return to file theTextFilewrite "       top:" & the top of theButton ¬¨& "  left:" & the left of theButton ¬¨& "  right:" & the right of theButton ¬¨& "  bottom:" & the bottom of theButton ¬¨to file theTextFilewrite return & "     - Msg Handlers & Functions:" ¬¨& return to file theTextFileput "        " into theLeadSpaceput the script of theButton into theScriptif theScript = empty thenwrite "        -none-" & return to file theTextFileelseput "      " into theLeadSpaceparseScriptend ifend parseCardButtonon scrollFieldif (the number of lines in card field "statusField" ¬¨* the textHeight of card field "statusField") ¬¨> (the bottom of card field "statusField" ¬¨- the top of card field "statusField") thenset the scroll of card field "statusField" to ¬¨(the number of lines in card field "statusField" ¬¨* the textHeight of card field "statusField") ¬¨- (the bottom of card field "statusField" ¬¨- the top of card field "statusField")end ifend scrollField</script>
  17.     <background id="2652" file="background_2652.xml" name="" />
  18.     <card id="2871" file="card_2871.xml" marked="false" name="" owner="2652" />
  19. </stack>
  20.